IF ((GetListItem(CHECKSTATES$, APPFILES) = "ON") OR (GetListItem(CHECKSTATES$, OPTFILES1) = "ON")) THEN
GOTO INSTALL
ELSE
i% = DoMsgBox("You must have at least one option checked." , AppName$, MB_OK+MB_TASKMODAL+MB_ICONHAND)
GOTO CUSTINST
ENDIF
ELSEIF sz$ = "PATH" THEN
GOTO GETPATH
ELSEIF sz$ = "CHK1" THEN
IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
sOPTION$ = "{""ON""}"
ENDIF
RecalcOptFiles APPFILES
SetDriveStatus
GOTO CUSTINST
ELSEIF sz$ = "CHK2" THEN
RecalcOptFiles OPTFILES1
SetDriveStatus
GOTO CUSTINST
ELSEIF sz$ = "BTN1" THEN
GOTO APPFILES1
ELSEIF sz$ = "REACTIVATE" THEN
RecalcPath
SetDriveStatus
GOTO CUSTINST
ELSE
GOSUB ASKQUIT
GOTO CUSTINST
END IF
INSTALL:
ClearCopyList
AddOptFilesToCopyList APPFILES
AddOptFilesToCopyList OPTFILES1
''SetCopyGaugePosition 210,250
IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
DirExist% = DoesDirExist(DEST$)
IF DirExist% = 1 THEN
i% = DoMsgBox("This directory " + DEST$ +" already exists. Do you want to overwrite it?", AppName$, MB_YESNO+MB_TASKMODAL+MB_ICONHAND)
IF i% = 7 THEN
GOTO CUSTINST
END IF
END IF
END IF
IF GetListItem(CHECKSTATES$, OPTFILES1) = "ON" THEN
DirExist% = DoesDirExist(DESTDATA$)
IF DirExist% = 1 THEN
i% = DoMsgBox("This directory " + DESTDATA$ + " already exists. Do you want to overwrite it? If you choose YES, all of your data will be lost.", AppName$, MB_YESNO+MB_TASKMODAL+MB_ICONHAND)
IF i% = 7 THEN
GOTO CUSTINST
END IF
END IF
END IF
CreateDir DEST$, cmoNone
CreateDir DESTDATA$, cmoNone
FileName$ = DESTDATA$ + "\RECIPES.PX"
FileExist% = DoesFileExist(FileName$, femExists)
IF FileExist% = 1 THEN
RemoveFile FileName$, cmoNone
END IF
FileName$ = DESTDATA$ + "\_RECIPES.PX"
FileExist% = DoesFileExist(FileName$, femExists)
IF FileExist% = 1 THEN
RemoveFile FileName$, cmoNone
END IF
FileName$ = DESTDATA$ + "\COUPONS.PX"
FileExist% = DoesFileExist(FileName$, femExists)
IF FileExist% = 1 THEN
RemoveFile FileName$, cmoNone
END IF
FileName$ = DESTDATA$ + "\PANTRY.PX"
FileExist% = DoesFileExist(FileName$, femExists)
IF FileExist% = 1 THEN
RemoveFile FileName$, cmoNone
END IF
FileName$ = DESTDATA$ + "\RESTAUR.PX"
FileExist% = DoesFileExist(FileName$, femExists)
IF FileExist% = 1 THEN
RemoveFile FileName$, cmoNone
END IF
FileName$ = DESTDATA$ + "\LAYOUT.PX"
FileExist% = DoesFileExist(FileName$, femExists)
IF FileExist% = 1 THEN
RemoveFile FileName$, cmoNone
END IF
FileName$ = DESTDATA$ + "\USERLIST.PX"
FileExist% = DoesFileExist(FileName$, femExists)
IF FileExist% = 1 THEN
RemoveFile FileName$, cmoNone
END IF
FileName$ = DESTDATA$ + "\SHOPLIST.PX"
FileExist% = DoesFileExist(FileName$, femExists)
IF FileExist% = 1 THEN
RemoveFile FileName$, cmoNone
END IF
FileName$ = DESTDATA$ + "\SHOPITEM.PX"
FileExist% = DoesFileExist(FileName$, femExists)
IF FileExist% = 1 THEN
RemoveFile FileName$, cmoNone
END IF
CopyFilesInCopyList
IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
i% = DoMsgBox("SHARE.EXE can not be found. Please make sure that SHARE.EXE is loaded before running "+AppName$+".", AppName$, MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)